home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00195_Anti-serve button if not ordered yet.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  715 b   |  37 lines
  1. property pSpr
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5. end
  6.  
  7. on mouseWithin
  8.   if inMixingMode() then
  9.     Active = barSlotToSprite(findActiveRecipeSlot())
  10.     thisChar = sprite(Active)
  11.     if thisChar.member.type <> #flash then
  12.       exit
  13.     end if
  14.     status = thisChar.pStatus
  15.     if not thisChar.pRecipeID then
  16.       setCursor(pSpr, noGood())
  17.     else
  18.       case status of
  19.         #retreating, #bouncing, #serving, #ordering:
  20.           setCursor(pSpr, noGood())
  21.         otherwise:
  22.           setCursor(pSpr, pointingHand())
  23.       end case
  24.     end if
  25.   else
  26.     setCursor(pSpr, noGood())
  27.   end if
  28. end
  29.  
  30. on mouseLeave
  31.   setCursor(pSpr, pointingHand())
  32. end
  33.  
  34. on endSprite
  35.   setCursor(pSpr, defaultCursor())
  36. end
  37.